perm filename FOREN.F4[CMS,LCS] blob sn#096332 filedate 1974-04-11 generic text, type T, neo UTF8
00100		DIMENSION NL(72)
00200	1	TYPE 10
00300	10	FORMAT(' (1) TYPE IN:'/)
00400		ACCEPT 12,NL
00500	12	FORMAT(72A1)
00600		L=0
00700		CALL JOKES(L,NL)
00800		IF(L)GO TO 1
00900		TYPE 13
01000	13	FORMAT(' (2) TYPE OUT:')
01100		TYPE 14,NL
01200	14	FORMAT(1X72A1/)
01300		GO TO 1
01400		END